home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 July to December / Ahoy_Magazine_84-Jul-Dec_1984_Double_L_unofficial.d64 / vic space lanes (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  2.2 KB  |  70 lines
  1. 1 poke36879,56:gosub500
  2. 2 pl=3:s=36878:s1=s-1:gosub100
  3. 5 pokel,.:pokel+cc,7
  4. 10 poke37154,127:ifpeek(37152)=119thend=1
  5. 15 jr=peek(37137):ifjr=118orjr=54thend=22
  6. 20 ifjr=110orjr=46thend=-1
  7. 25 ifjr=122orjr=58thend=-22
  8. 30 l1=peek(l+d):ifl1=63thend=0:goto10
  9. 35 ifl1=4thenpo=po+5:gosub90
  10. 38 ifint(rnd(0)*10)=9thengosub50
  11. 40 pokel,32:l=l+d:pokel,.:pokel+cc,7:d=0:goto10
  12. 50 r=int(rnd(1)*10):r1=r*44
  13. 55 forx=7725+r1to7741+r1:pokex,63:pokex+cc,1:nextx
  14. 60 ifl>7724+r1andl<7742+r1thenpl=pl-1:gosub600
  15. 65 forx=7725+r1to7741+r1:pokex,32:nextx:return
  16. 90 pokes,15:pokes,0:ifpo>hsthenhs=po
  17. 92 print"";po:print"":printtab(17)"[145][145][145][145]";hs
  18. 94 ifpo/400=int(po/400)thengosub400
  19. 95 return
  20. 100 cc=30720:l=7931:d=0:hs=(peek(901)*256)+peek(900):poke36869,255
  21. 110 print"[147][159]??????????????????????"
  22. 115 print"[145][156]??????????????????????[157][157]"
  23. 120 print"[145]?[159]                 ??[158]?[156]?"
  24. 130 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
  25. 135 print"[145]?[159]                 ??[158]?[156]?"
  26. 140 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
  27. 145 print"[145]?[159]                 ??[158]?[156]?"
  28. 150 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
  29. 155 print"[145]?[159]                 ??[158]?[156]?"
  30. 160 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
  31. 165 print"[145]?[159]                 ??[158]?[156]?"
  32. 170 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
  33. 175 print"[145]?[159]                 ??[158]?[156]?"
  34. 180 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
  35. 185 print"[145]?[159]                 ??[158]?[156]?"
  36. 190 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
  37. 195 print"[145]?[159]                 ??[158]?[156]?"
  38. 200 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
  39. 205 print"[145]?[159]                 ??[158]?[156]?"
  40. 210 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
  41. 215 print"[145]?[159]                 ??[158]?[156]?[157][157][157]"
  42. 220 print"[145]????????????????????[158]?[156]?"
  43. 225 forx=8164to8185:pokex,63:pokex+cc,3:nextx:poke8184+cc,7:poke8185+cc,4
  44. 238 print"":printtab(21)"[144]s[157]p[157]a[157]c[157]e[157]m[157]a[157]z[157]e"
  45. 239 print"[144]by, robert alonso"
  46. 240 print"[144]score:"::print"":printtab(12)"[145][145][145][145][145]high:"
  47. 400 forx=7747to7763step2:forx1=0to352step44:pokex+x1,4:pokex+x1+cc,7:nextx1,x
  48. 420 return
  49. 500 print"[147]":forx1=1to200:print""
  50. 505 dl=int(rnd(1)*500)+1:dc=int(rnd(1)*8)+1:poke7680+dl,160:poke38400+dl,dc
  51. 507 printtab(8)
  52. 510 forx=0to7:poke646,x:print"[157][157][157][157][157][157][157][157]space maze";:next
  53. 515 nextx1
  54. 545 ifpeek(7168)<>24thenpoke900,0:poke901,0
  55. 550 forx=7168to7679:pokex,peek(x+25600):next
  56. 555 forx=0to7:reada:poke7168+x,a:next
  57. 557 forx=0to7:reada:poke7200+x,a:next
  58. 560 forx=0to7:poke7672+x,255:next
  59. 570 return
  60. 600 pokes1,222:forx=9to15step2:pokes,x:forx1=1to45:nextx1,x:forx2=1to50:nextx2
  61. 605 forx=15to10step-1:pokes,x:forx1=1to50:nextx1,x:pokes,0
  62. 610 forx=15to0step-1:pokes,x:forx1=1to70:nextx1,x
  63. 620 ifpl=0then660
  64. 630 return
  65. 660 h1=int(hs/256):h2=hs-h1*256
  66. 670 poke900,h2:poke901,h1
  67. 680 print"[147]":poke36879,27:poke36869,240:end
  68. 800 data24,60,126,24,189,231,195,129
  69. 810 data0,0,0,24,24,0,0,0
  70.